home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / amos / AMOSList-0998.lzh / AMOSLIST / 000120_bounce-amos-li…net@onelist.com_Sun Sep 6 07:53:03 1998.msg < prev    next >
Text File  |  1998-10-01  |  9KB  |  231 lines
  1. >From bounce-amos-list--980-mcox=access.digex.net@onelist.com  Sun Sep  6 07:53:03 1998
  2. Received: from onelist.com (pop.onelist.com [209.207.164.13])
  3.     by pony-1.mail.digex.net (8.8.8/8.8.8) with SMTP id HAA07513
  4.     for <mcox@access.digex.net>; Sun, 6 Sep 1998 07:53:03 -0400 (EDT)
  5. Received: (qmail 13649 invoked by alias); 6 Sep 1998 11:56:54 -0000
  6. Received: (qmail 13640 invoked from network); 6 Sep 1998 11:56:52 -0000
  7. Received: from unknown (HELO tungsten.btinternet.com) (194.73.73.81) by pop.onelist.com with SMTP; 6 Sep 1998 11:56:52 -0000
  8. Received: from np5gt [195.99.57.209]  by tungsten.btinternet.com with smtp (Exim 1.70 #1) id 0zFdL2-0002my-00; Sun, 6 Sep 1998 12:50:36 +0100
  9. Message-ID: <000f01bdd98c$cb09ae20$d13963c3@np5gt>
  10. From: "John Glanville" <John.Glanville@btinternet.com>
  11. To: <amos-list@onelist.com>
  12. Date: Sun, 6 Sep 1998 12:50:46 +0100
  13. X-Priority: 3
  14. X-MSMail-Priority: Normal
  15. X-Mailer: Microsoft Outlook Express 4.72.3110.1
  16. X-MimeOLE: Produced By Microsoft MimeOLE V4.72.3110.3
  17. Mailing-List: list amos-list@onelist.com; contact http://www.onelist.com
  18. Delivered-To: mailing list amos-list@onelist.com
  19. Precedence: bulk
  20. Reply-to: amos-list@onelist.com
  21. Mime-Version: 1.0
  22. Content-Type: multipart/alternative; boundary="----=_NextPart_000_000C_01BDD994.F7927640"
  23. Subject: [amos-list] Hey Andrew Crowe!
  24. Status: O
  25. X-Status: 
  26.  
  27. From: "John Glanville" <John.Glanville@btinternet.com>
  28.  
  29. This is a multi-part message in MIME format.
  30.  
  31. ------=_NextPart_000_000C_01BDD994.F7927640
  32. Content-Type: text/plain;
  33.     charset="iso-8859-1"
  34. Content-Transfer-Encoding: quoted-printable
  35.  
  36. Hello! There! Thanx for the Code... But there is a problem...
  37. The 3dgood_int prog Had unknow stuff in it... I don't know if its some =
  38. extension i don't
  39. have or just it got scrambled on the cross over as I have heard that =
  40. lha's are unstable
  41. across the net.. Heres what I recieved! The other one worked fine... =
  42. Thanx!
  43.  
  44. ---START OF PROG---
  45. Input "What Detail (1-200) ?";SKL
  46. ST:
  47. Trap Load Iff "3d/worldmap.lores",0
  48. If Errtrap : Dir$=3D"work:amospro/" : Goto ST : End If=20
  49. Load Iff "3d/worldmap.lores",1
  50. Screen 0
  51. Cls 0
  52. Degree=20
  53. 'Double Buffer=20
  54. Autoback 0
  55. PX=3D160
  56. PY=3D100
  57. Screen To Front 0
  58. MX=3D320/SKL
  59. MY=3D200/SKL
  60. ZOM=3D2
  61. Do=20
  62.    Timer=3D0
  63.    ROTATE[ANG,ZOM,MX,MY,PX,PY,SKL]
  64.    T#=3DTimer+1
  65.    Screen 0
  66.    ED ZOM,220,1  - This line has gone wrong
  67.    Print At(0,0);"VBL:";T#-1;"  ","FPS:";50/T#;"  "
  68.    Screen Swap=20
  69.    Wait Vbl=20
  70.    ANG=3DANG+10
  71.    ZOM=3DZOM+1
  72.    'If Jleft(1)=20
  73.    '   ANG=3DANG+10=20
  74.    'End If =20
  75.    'If Jright(1)
  76.    '   ANG=3DANG-10=20
  77.    'End If =20
  78.    ''Bell  =20
  79. Loop=20
  80.  
  81. Procedure ROTATE[ANG,ZOM,MX,MY,PX,PY,SKL]
  82.    MX2=3DMX/2
  83.    MY2=3DMY/2
  84.    ZOM=3DZOM*SKL
  85.    'ZOM#=3DZOM#/64
  86.    S=3DSin(ANG)*256
  87.    C=3DCos(ANG)*256
  88.    For Y=3D0 To MY
  89.       'BY=3D(Y^2)/(128/skl)
  90.       For X=3D0 To MX
  91.          XM=3D(X-MX2)*ZOM
  92.          YM=3D(Y-MY2)*ZOM
  93.          'OX=3DXM*C+YM*S+Rnd(16384)=20
  94.          'OY=3DYM*C-XM*S+Rnd(16384)=20
  95.          Rem /\ Use these if you want a smoother finnish /\=20
  96.          Rem Its slower then \/ those though!=20
  97.          OX=3DXM*C+YM*S
  98.          OY=3DYM*C-XM*S
  99.          OX=3DOX/16384 : OY=3DOY/16384
  100.          Screen 1
  101.          P=3D 0t0,0,0=7F(OX+PX,OY+PY) - This line has Gone weird!!!
  102.          If P>-1
  103.             Screen 0
  104.             Trap Ed X*SKL,Y*SKL,P - And this line!
  105.             'If SKL>1
  106.             'F Plot X*SKL+1,Y*SKL+1,1
  107.             'End If =20
  108.          End If=20
  109.          'Trap F Plot X*SKL,Y*SKL/2+50+BY,P=20
  110.          'Ink P : Bar X*SKL,Y*SKL To X*SKL+SKL,Y*SKL+SKL =20
  111.       Next=20
  112.    Next=20
  113. End Proc
  114.  
  115. ---END OF PROG---
  116. Is this all right... Could U send me Your Prog in Asc Format! So I can C =
  117. Whats Going on!
  118. Thanx
  119. Bye!
  120.  
  121. ------=_NextPart_000_000C_01BDD994.F7927640
  122. Content-Type: text/html;
  123.     charset="iso-8859-1"
  124. Content-Transfer-Encoding: quoted-printable
  125.  
  126. <!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
  127. <HTML>
  128. <HEAD>
  129.  
  130. <META content=3Dtext/html;charset=3Diso-8859-1 =
  131. http-equiv=3DContent-Type>
  132. <META content=3D'"MSHTML 4.72.3110.7"' name=3DGENERATOR>
  133. </HEAD>
  134. <BODY bgColor=3D#ffffff>
  135. <DIV><FONT color=3D#000000 size=3D2>Hello! There! Thanx for the Code... =
  136. But there is=20
  137. a problem...</FONT></DIV>
  138. <DIV><FONT color=3D#000000 size=3D2>The 3dgood_int prog Had unknow stuff =
  139. in it... I=20
  140. don't know if its some extension i don't</FONT></DIV>
  141. <DIV><FONT color=3D#000000 size=3D2>have or just it got scrambled on the =
  142. cross over=20
  143. as I have heard that lha's are unstable</FONT></DIV>
  144. <DIV><FONT color=3D#000000 size=3D2>across the net.. Heres what I =
  145. recieved! The=20
  146. other one worked fine... Thanx!</FONT></DIV>
  147. <DIV><FONT color=3D#000000 size=3D2></FONT> </DIV>
  148. <DIV><FONT color=3D#000000 size=3D2>---START OF PROG---</FONT></DIV>
  149. <DIV><FONT color=3D#000000 size=3D2>Input "What Detail (1-200)=20
  150. ?";SKL<BR>ST:<BR>Trap Load Iff =
  151. "3d/worldmap.lores",0<BR>If=20
  152. Errtrap : Dir$=3D"work:amospro/" : Goto ST : End If <BR>Load =
  153. Iff=20
  154. "3d/worldmap.lores",1<BR>Screen 0<BR>Cls 0<BR>Degree =
  155. <BR>'Double=20
  156. Buffer <BR>Autoback 0<BR>PX=3D160<BR>PY=3D100<BR>Screen To Front=20
  157. 0<BR>MX=3D320/SKL<BR>MY=3D200/SKL<BR>ZOM=3D2<BR>Do <BR>  =20
  158. Timer=3D0<BR>   =
  159. ROTATE[ANG,ZOM,MX,MY,PX,PY,SKL]<BR>  =20
  160. T#=3DTimer+1<BR>   Screen 0<BR>   ED ZOM,220,1  =
  161. - This=20
  162. line has gone wrong<BR>   Print=20
  163. At(0,0);"VBL:";T#-1;" =20
  164. ","FPS:";50/T#;"  "<BR>   Screen =
  165. Swap=20
  166. <BR>   Wait Vbl <BR>   ANG=3DANG+10<BR>  =20
  167. ZOM=3DZOM+1<BR>   'If Jleft(1) <BR>   '   =
  168. ANG=3DANG+10=20
  169. <BR>   'End If  <BR>   'If =
  170. Jright(1)<BR>  =20
  171. '   ANG=3DANG-10 <BR>   'End If  =
  172. <BR>  =20
  173. ''Bell   <BR>Loop </FONT></DIV>
  174. <DIV><FONT color=3D#000000 size=3D2><BR>Procedure=20
  175. ROTATE[ANG,ZOM,MX,MY,PX,PY,SKL]<BR>   =
  176. MX2=3DMX/2<BR>  =20
  177. MY2=3DMY/2<BR>   ZOM=3DZOM*SKL<BR>  =20
  178. 'ZOM#=3DZOM#/64<BR>   S=3DSin(ANG)*256<BR>  =20
  179. C=3DCos(ANG)*256<BR>   For Y=3D0 To =
  180. MY<BR>     =20
  181. 'BY=3D(Y^2)/(128/skl)<BR>      For X=3D0 To=20
  182. MX<BR>        =20
  183. XM=3D(X-MX2)*ZOM<BR>        =20
  184. YM=3D(Y-MY2)*ZOM<BR>        =20
  185. 'OX=3DXM*C+YM*S+Rnd(16384) =
  186. <BR>        =20
  187. 'OY=3DYM*C-XM*S+Rnd(16384) =
  188. <BR>        =20
  189. Rem /\ Use these if you want a smoother finnish /\=20
  190. <BR>         Rem Its slower then =
  191. \/=20
  192. those though! <BR>        =20
  193. OX=3DXM*C+YM*S<BR>        =20
  194. OY=3DYM*C-XM*S<BR>         =
  195. OX=3DOX/16384 :=20
  196. OY=3DOY/16384<BR>         Screen =
  197.  
  198. 1<BR>         P=3D =
  199. 0t0,0,0=7F(OX+PX,OY+PY) -=20
  200. This line has Gone =
  201. weird!!!<BR>        =20
  202. If =
  203. P>-1<BR>          &n=
  204. bsp;=20
  205. Screen =
  206. 0<BR>           =20
  207. Trap Ed X*SKL,Y*SKL,P - And this=20
  208. line!<BR>          &nbs=
  209. p; 'If=20
  210. SKL>1<BR>          &=
  211. nbsp;=20
  212. 'F Plot=20
  213. X*SKL+1,Y*SKL+1,1<BR>        &nbs=
  214. p;  =20
  215. 'End If  <BR>         End =
  216. If=20
  217. <BR>         'Trap F Plot=20
  218. X*SKL,Y*SKL/2+50+BY,P =
  219. <BR>         'Ink=20
  220. P